MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
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S$ MMMM 6MMMM «GG SS cc RR RR 00 OO LL LL 
SS MMMM MMMM «GG SS cc RR RR 00 oO LL LL 
SS MM MM MM «OGG SS cc RR RR 00 oO LL LL 
SS MM MM MM «OGG $s cc RR RR 00 oO LL LL 
SSSSSS MM MM GG SSSSSS cc RRRRRRRR 00 OO LL LL 
SSSSSS MM MM GG SSSSSS cc RRRRRRRR 00 0O LL LL 
SS MM MM GG GGGGGG SS CC RR RR 00 OO LL LL 
SS MM MM GG GGGGGG s$S CC RR RR 00 oO LL LL 
SS MM MM GG GG sS CC RR RR 00 oO LL LL cece 
SS MM MM ss CC RR RR 00 OO LL LL Pre 
SSSSSSSS MM MM GGGG SSSSSSSS CCCCCCCC «RR RR 000000 LLLLLLLLLL LLLLLLLLLL eoee 
SSSSSSSS MM MM GGGGGG SSSSSSSS CCCCCCCC SRR RR 000000 LLLLLLLLLE LLLELLLLLLL cece 
LL IIIIII SSSSSSSS 
LL HII SSSSSSSS 
LL I] $S 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
Lt I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL IHI111 SSSSSSSS 
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ZTITLE ‘SMGS$$S 
$sC 


ROLL_AREA = Virtual Display -- Scroll rectangular area’ 
MODULE SRGS — ” 


C 
ROLL AREA ( 
DENT = '1-005' ! File: SMGSCROLL.B32 Edit: RKR1005 


—e 


BEGIN 


. 
ESSE SE LILIES IST TT TTT TTT TTT Tri rere i tric crc ici iti iis isi i iii ri iitiiiiiiiey 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Hl nr a eee WITH THE TERMS OF SUCH LICENSE a | 


we 

it 

® 

® 

® 

* 

® 

i C é OTICE. THIS SOFTWARE O - 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
i TRANSFERRED. * 
4 ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

i CORPORATION. : 
® 

@ 

* 

® 

* 

® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
Lee RRR ARATE AAA AAA AAAS 


+ 
FACILITY: Screen Management 


ABSTRACT: 

The procedures in this module upeate and maintain the contents 
of the in-memory representations of the virtual displays. The data 
areas themselves are allocated/deallocated, pected wensne. etc. 
by the procedures in module SMGSDISPLAY_LINKS. Output from these 
virtual displays is handled by procedures in SMGSDISPLAY_OUTPUT. 

The module SMGSDISPLAY_INPUT contains the routines that support 
input operations on displays. 


ENVIRONMENT: User mode, Shared Library routines. 
AUTHOR: P. Levesque, CREATION DATE: 14-Apr-1983 
MODIFIED BY: 


1-00) - Original. PLL 14-Apr-1983 
1-002 - Fix to right scroll. Changed a GEQ to gtk to allow scroll 
from gext to bast column. PLL 27-Jul-1983 
1-003 - STAN 31-Aug-1983, scroll Line characteristics vector. 
1-004 - A number g changes to fix bugs and improve performance. 
Move SSMGSLINEAR computations outs ge of loop and ecconpl ish 
equivalent variable updates via addition or subtraction within Loop. 
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4 01:14:29 AX-11 Bliss-32 V4.0-74 
14-Sep-1984 93:16: 2 SMGRTL.SRCJSMGSCROLL 


Page 1 


SPGSSSCROLL ARE SMGSSSCROLL_AREA = Virtual Display -- Scroll re 14-32 Sep-1984 AX-11 Bliss-32 V4.0- Pa 

1-005 oa 1e-8eb-19ee 13:10:08 Lemont SAeishestRoc 6S2:1 45 
_ 7 Fix bounds checks that were accessing the wrong variable. 
1} 1 oda 

1 ! 1-005 = Fix fe jchenge its functionality to scroll the contents of the 

1! scrolli ng rectange within the confines of the serene sesrenes 
1 * ne than scrolling the rectangle to other parts of the virtual 
1; 

1 ' 
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MGSSSCROLL_ARE SMGSSSCROLL_AREA = Virtual Display <= Scroll re 18-5 1984 01:14: AX=-11 Bliss-32 V4.0-74 SI 
witty eclarations ty 1 7300-1382 94:10:88 SNGRTL SREISMESCROLL. B92; 1 oa (23 1 


1 RSBTTL ‘Declarations’ 


D 
; 7 } 
3 6 5 1 ! SWITCHES: 
Pe 1! 
oz 7. os 
i OR tE yi Uincaces 
[i 74 «15! 
om 75 1! NONE 
i 2 B78 1! 
; 78 77 1°! TABLE OF CONTENTS: 
; A 1! 
; 79 «1 
3 a baat ! FORWARD ROUTINE 
on, | O08 1 SMGSS$SCROLL_AREA; ! Scroll a rectangular area 
; @ 083 1 
3; 6 COGS 0084 1! 
¢ @ 0085 1 ! INCLUDE FILES 
3; 8 0086 1! 
; 8 0087 1 
; wy 0088 1 REQUIRE 'RTLIN:SMGPROLOG'; ! defines psects, macros, tcb, 
22 0166 1 ! web, & terminal symbols 
; 0167 1 
> = 0168 1! 
; 9 31g? 1 ! EXTERNAL REFERENCES 
s 0170 1! 
3; 0171 1 EXTERNAL LITERAL 
; Bire 1 SMG$_INVARG; 
*. or 0173:«1 
; 98 0174 1 !<BLF/PAGE> 
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ZSBTTL rattan coek AREA = Scroll rectangular area’ 
GLOBAL ROUTINE SMGSSSCROLL_AREA ( 
: eer BLOCK C,BYTE), 


SCROLL _ARE on 
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144 

} FUNCTIONAL DESCRIPTION: 
This routine is the heart of all routines which open up a 
space in the virtual display. Data within the specified scrolling 
rectangle is scrolled in the specified direction by the number of 
units requested. 

CALLING SEQUENCE: 


ret_status.wic.v = SMGSSSCROLL_AREA ( 


— bu > 2 2d bs > a) as 9 a a a a tt tt 


FORMAL PARAMETERS: 


DCB.mab.r Address of virtual display control b 
Various fields from within in this b 
are interrogated and/or updated. 


WN "SO OVONOULSWN “OO ONOUSWN—O0W 


Lock. 
lock are 


eh hema iam lololo) 


w 


START_ROW.rl.v Row in display where move should begin 
START_COL.rl.v Column in display where move should begin 


ooon 


HEIGHT. rl.v Height of rectangular area 
WIDTH. rl.v Width of rectangular area 
DIRECTION.rl.v Direction of move, one of the following: 
SMGSA_ 
SMGSM_DOWN 
SMGSM_RIGHT 
SMGSM_LEFT 
COUNT.rl.v Number of character positions to move 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 


ane WW 
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' 
NONE 
| COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
i SIDE EFFECTS: 
NONE 
BEGIN 
LOC 


AL 
ONE_LINE, ! number of bytes between a given column in 

! on Line of the virtual atop, ay and the same 

' column in the next Line. Obviously, this is 
' is equal to the number of columns in the 

! virtual display 


LOCAL_HEIGHT, ! working height 
idth 


' 

LOCAL _WIDTH, ! working w 
SOURCE, ' start position of move (byte offset) 

SVs ! destination of move (byte offset) 

v : REF VECTOR C,BYTEJ, ! addr of Line characteristics vector 
TEXT _BUF : REF VECTOR C,BYTEJ, ! addr of text buffer 
ATTR_BUF : REF VECTOR C,BYTEJ, ! addr of attr buffer 
CHAR _BUF : REF VECTOR C,BYTEJ, ! addr of char set buffer 


BOTTOM_LINE; ' Last Line in scrolling rectangle 
ONE_LINE = .DCB CDCB_W_NO_COLS); 
14 
! The entire display may be shuffled or a subset may be shuffled. Ignore 
' requests to define a serous ine area that extends outside the display. 
! The assumption is that START_ROW and START_COL are within the virtual 


: ot spi ey. Code below makes sure reout cing rectangle we deal with as the 
scrolling rectangle is entirely within the virtual display. 


LOCAL_HEIGHT = .HEIGHT; 
LOCAL"WIDTH = .WIDTH; 
IF (.START_ROW + .HEIGHT - 1) GTR .DCB CDCB_W_NO_ROWS) 
LOCAL_HEIGHT = .DCB CDCB_W_NO_ROWS) - .START_ROW +1; 
IF (.START_COL + .WIDTH - 1) GTR .ONE_LINE 
LOCAL_WIDTH = .ONE_LINE = .START_COL +1; 
BOTTOM_LINE = .START_ROW + .LOCAL_HEIGHT -1; 


'¢ 
; Get addresses of DCB buffers. 


74 
-B52;1 
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SMGSSSCROLL-AREA = Scroll rectangular area 4 SMGRTL SCRO aL. if 231 (3) 

; 214 
s 215 30 TEXT_BUF = .0CB Deb aA. TEXT BUF: 
3 1 ATTR_BUF = .DCB [DCB_A_ATTR_BUFJ; 
: 21 $3 CHAR-BUF = .DCB CDCB"A-CHAR“SET uF: 
3 LCV =. ALINE, 3 

18 9 ¢C DCB CDCB-A_LINE- CHAR 
- an 
: 1 § 38 i In case WIDTH is Less than the entire Line, the move is performed 
; ¢ 029 i Line by Line. For upward moves, the low numbered Lines are moved 
3 38 i first. For downward moves, high numbered Lines are moved first. 
: 3 69 ‘ For sideways moves, low numbered Lines will be shifted first. 
: § 8g CASE .DIRECTION FROM SMGSM_UP TO SMGSM_LEFT OF 
; 8 030 SET 


SMGSSSCROLL_ARE SMG$ 
805 t=ARE Sh 
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LL_AREA = Virtual Display -- Scroll re 19° 


J 1984 01:14:29 AX-11 Bliss-32 V4.0-7 
LL_AREA = Scroll rectangular area 1 198 9316563 j 


4 Page 
SMGRTL.SRCJSMGSCROLL.B52;1 . 


0 CSMGSM_UP): 
1 BEGIN 
¢ LOCAL 
? DEST_LINE_NO; 
5 DEST_LINE_NO = .START_ROW = .COUNT; ! Dest. row number 
DEST = SSMGSLINEAR (.BEST_LINE_NO, .START_COL); ! Dest. byte offset 
SOURCE = SSMGSLINEAR (.START_ROW, .START_COL); ! Source byte offset 
INCR CURR_LINE FROM .START_ROW ! From ist Line of scroll rectangle to 
- TO .BOTTOM_CINE ! Last Line of scroll rectangle 
BEGIN ! incr loop 
IF .DEST_LINE_NO GEQ .START_ROW ! If within scrolling 
THEN ! rectangle 
BEGIN ! perform moves 


Move text, attributes, ait. char set and Line characteristics 


SSMGSSHUFFLE (.LOCAL_WIDTH, .SOURCE, .DEST); 
LCV C.DEST_LINE_NOJ = .LCV C.CURR_LINEJ; 
END; ! perform moves 


DEST_LINE_NO = .DEST_LINE_NO +1; ! 1 Line downward 
DEST-= .DEST + .ONE_CINE;T ! Offset 1 Line downward 
SOURCE = .SOURCE + » ONE LINE; ! Offset 1 Line downward 
END; ! incr loop 


' 4 


Up to COUNT number of Lines may have been opened up. Blank fill them. 
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SOURCE = SSMGSLINEAR ( .BOTTOM_LINE, .START_COL); ! Byte offset 
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FSW 


RAAB ES SNE & FAWN BBB PN & & PWIA NIAAA 


Be Os Be Ge Se Se Be Ge Se Ge Ge Se Be Se Be Ge SF SF Se SF Se Ss Ge Se Se Fe Se Ss Ss SF Ss BH Ss Oe Se Se SF Ss Ss SH S5 Oe Se FHSS SH St Sees 
POMIPINOPUPUIPONIPOPOPUNIPONUNPPONUNUNAY 
. ~“ 


SOOCOCOOCCOCOCOOCOSOOSOOOSOSSOSOOSOCOOOOOOOCOOOOOOOOOOOO 


365 INCR COUNTER FROM 1 TO .COUNT 
66 BEGIN ! check for clearing needed 
at IF .BOTTOM_LINE GEQ .START_ROW ! If still within 
68 THEN ! rectangle 
269 34 BEGIN ! clear 
70 i SSMGSBLANK_FILL_ DCB (.LOCAL_WIDTH, .SOURCE); 
71 4 LCV C.BOTTOM_LINE = 0; 
Lf e ND; ! clear 
74 34 SOURCE = .SOURCE - .ONE_LINE; ! Up 1 Line's worth 
5 34 BOTTOM_LINE = .BOTTOM_LINE - 1; ! Up 1 Line 
8 $2 END; ! check for clearing needed 
78 35 END; ! end of upward shuffle 


—_— A ee eee AS ee Eee Se a ON ee ae ee eco eee 


MIPPOPoOTPonofororroroforn 
Sao en 
WR OOONOUS WN 


ooooooooo wooooo 


WAIWANAWAAW NN A WWI ANA AANA ANNA WWII nononononung 


POPOPOPONININIPIPDY 4 2 Ot OO 


PAA 


WWWAINAAAW 


3000 09 09 09 09 00 C9 09 C008 NIN INI NNO 
MEW | SO DOONAN E WN $9 ODNAULS WN OOONAUL EWN ODOONOULW 


OOOOOOCOCOOCOOSOOSSOCOSOOSCOOCOCCOSC OOOO OOCOOOOCOOOOCOO 
oooono 


WWII A WIA NIAAA WI AAAAAIAI NAAN AWWA AIAA 


oo 
S2SVs 
RAS SHS LNNE & FAWN NWA BEB PN BS 


+~ 
oo 
=S 


DEST~= SSAGSLINEAR ( .DEST LINE non * START COL); | Dest byte offset 
SOURCE = SSMGSLINEAR ¢ BOTTOM ae ~START_COLS;! Source byte offset 
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1-005 SMGSSSCROLL_AREA = Scroll rectangular area 14-Sep-1984 13:10:02 SMGRTL.SRC SMGSCROLL. if 2;1 
8 
8 & CSMGSM_DOWN): 
8 BEGIN 
8 LOCAL 
. DEST_LINE_NO; 
DEST_LINE_NO = .BOTT por LINE + ! Dest Line number 
8 


DECR CURR_LINE FROM ROT TOR LINE ! From bottom Line of scroll 
— TO .START_ROO ! rectangle to top Line 
BEGIN 
IF_ .DEST_LINE_NO LEQ .BOTTOM_LINE ! If still within 
THEN i rec ctangle 
BEGIN ! perform moves 
. von text, attributes, alt. char. set and Line charactistics 
SSMGSSHUFFLE -LOCAL_WIDTH, “pounce DEST); 
V C.DEST_LINE_NOJ = -LCV'L.C LINE}; 
END: ! soe moves 
DEST LINE NO = .DEST_LINE_NO - ! 1 Line up 
DEST-= .DEST = .ONE_CINE;~ ' Offset up 1 Line's work 


SOURCE = SOURCE - [ONE LINE; i Source offset 


! end of decr Loop 
! 


‘+ 
Up to COUNT number of Lines may have been opened up. Blank fill them. 


SOURCE = he eee e START ROW, .START_COL); ' Line offset 
DEST_LINE_NO = .STAR ! Line number 
Ne ~COUNTER FROM 1 TO COUNT 


BEGIN ! Check need to clea 
IF .DEST _LINE NO tea .~BOTTOM “LINE ' If still within 
THEN F thee ' rectangle 


BEGIN 

$SMGS$BLANK “FILL ~pCe B (. on. WIDTH, .SOURCE); 
Lcv C. DEST. LIN = 

END; ' Tle i. 


SOURCE = .SOURCE + a LINE ' Down 1 Line's worth 
DEST_LINE. NO = .DEST_LIRE NO’ + 1; ' Down 1 Line 
END; ' Check iced fo clear 


END; ! end of downward shuffle 


Page 
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2 SMGRTL.SRC SMGSCROLL. : 231 (6) 
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CSMGSM_RIGHTI: 
BEGIN 
LOCAL 
RIGHT COL_OF RECT, 
DEST_COL_NO;~ 


RIGHT COL _OF_RECT = “START COL + .LOCAL_WIDTH "is 
DEST_COL_NO = .START_COL + .COUNT; irst col of dest. 
SOURTE ="S$SMGSLINEAR ( .START_ROW, .START_COL); | Byte offset for source 
DEST = SSMGSLINEAR ( BEL ARE ROW -DEST_COL NO); ! Byte offset for dest. 
ae «COUNT GTR .LOCAL_WIDTH 

BEGIN ! Off of right of rectangle 


"starting destination column maps outside of rectangle. Just need 
i _to clear source through Last column of rectangle. 


ae 


5 ek ek ek el el ek el ek ed ek ak ek el ee et ek ee ek ek ee ee ee 
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0410 
0411 

0 0 \¢ 

1 8 1 

¢ 14 

0415 

4 0 16 

5 041 

; 

8 0420 iNCR CURR_LINE FROM .START_ ROW ! From ist Line of rectangle to 
49 0 $} TO .BOTTOR_LINE ' Last Line of rectangle 
50 0 ¢ dO 
51 0 BEGIN ! Incr loo 
2§ 0424 SSMGSBLANK FILL De ( ,LOCAL_WIDTH, .SOURCE); 

35 0425 SOU - SOURCE 4 -ONE_LINE? 
$2¢ 0426 ENDS “!"Iner Loo 
55 0427 END i Off “of right of rectangle 
356 0428 
357 0429 ELSE 
58 0430 
+4 8 31 BEGIN ! Dest. at least partially within rectangle 
361 0 33 ‘tous movement of source text is needed. 
306 0434 ~ 
6 0435 LOCAL 
364 0436 COLS_TO_MOVE, ! # bytes to move 
$0? okt COLS_TO_CLEAR; i # bytes to clear 
3 COLS_TO_MOVE = .RIGHT_COL_OF_RECT = .DEST_COL_NO +1; 
0 COLS-TO_CLEAR = .DEST_COL_NO - START COLT 
INCR CURR_LINE FROM .START ROW ! From ist Line of rect to 
* TO .BOTTOR_LINE i last Line 


BEGIN ! Incr loop 


yale: text, attributes, and alternate char. set to dest. 
a Clear source area vacated. 


SSMGSSHUFFLE : et: TO_MOVE “S0uncE. DEST); 
SSMGSBLANK_F Bt .COLS fO CLEAR, . SOURCES; 
SOURCE =  SOURTE. s ONE CINE: TT Line's worth down 
DEST = .DEST + .ONE~ LINE; i 1 Line's worth down 
ND; ' Incr Loop. 
END; ' Dest. at least part telty within rectangle 
END; end of right shuffle 
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Pwie Pee eee ee eer oP or oP or or or rr ar le |S Po oo 


2 16 


' 
S_TO_tLE i # bytes to clear after movement 
CraaT OF tEEAR, byte offset for start of clear operation 


BEGIN ! Incr loop 
‘tous text, attributes, and alternate char. set to dest. 
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SMGSSSCROLL_ARE sree SCROLL_AREA = Virtual Display <= Scroll re Sep-1984 01:14:29 AX-11 Bliss-32 V Page 1 
1-005 esestnort “AREA = Scroll rectangular area ib-Se0-1944 94; 710: 63 SMGRTL SREISHESCROLL 382: ;1 . (7 
; ef 38 CSMGSM_LEFT) 

3 8 4 § BEGIN 

; 389 460 LOCAL 

; a0 461 RIGHT COL noe RECT, 

: 33 re DEST_COL 

; Ww 0464 DEST_COL a = 2 staat COL = .COUNT; ! First col of dest. 

> 394 0465 RIGHT COC_OF_RECT = TSTART COL + ‘LOCAL_WIDTH -1; |! Last col of rect. 
; 395 046 IF .COUNT™ Orr -LOCAL_WIDTH™ 

; oe 046 THEN 

3 44 rh ¢4 BEGIN ! Off off left of rectangle 

; 399 0470 "starting destination column maps outside of rectangle. Just need 
; 400 0471 i to clear source from ist column of rectangle to Last 

; 401 047 ! column of rectangle. 

; 40 047 ie 

; 40 0474 

: tbe oh SOURCE = SSMGSLINEAR ( .START_ROW,.START_COL); 

; 406 0477 INCR CURR_LINE com « START_ROW ! From ist Line of rectangle to 
: 407 0478 TO  .BOTTOM_LINE i last Line of rectangle 

; 4 0479 dO 

; 409 0480 BEGIN ! Incr loo 

; 0481 SSMGSBLANK FILL De : reer: WIDTH, .SOURCE); 

3 048 SOURCE = .SOUR a a -ONE_LINE? 

: 048 ND; Incr 

; 0484 END ! Off of” left of rectangle 

; 0485 

: 0486 ELSE 

; 0487 

3 ots BEGIN ! Dest. at least partially within rectangle 

; 0490 i” “fone movement of source text is needed. 

3 049 LOCAL 

; 049 START OF pove . Ist column to move 


oO 
= 
~o 
— 
wwe oP oP oP oY oY oY oF ot? oF ot at ot et et et et et et et et hs et et eh hh a et et et et et et et et 


ae COLS_TO_AMOVE; # bytes to move 

0498 COLS_TO_MOVE = ae $T" WIDTH .- COUNT 

0499 START_OF MOVE = .RIGH GHT_ COL oF RECT - * coLs TO_MOVE +1; 

bens SOURCE = “$SMGSLINEAR (~ START~ ROW, START _OF MOVE): 

0206 COLS_TO_ CLEAR = .LOCAL_WIDT vr - sco 3.. TO _ MOVE; 

P 050 START _OF_ CLEAR = $SMGSCINEAR START “ROO, 

B20 START COL + .COLS_TO_MOVE); 

0808 DEST = SSMGSLINEAR ( .START_ROW, .START_COL); 

0508 INCR CURR_LINE FROM .START_ ROW ' From ist Line of rect to 
509 TO .BOTTOA LINE ' Last Line 

0310 
511 

oai¢ 

051 


— Ls 


SMGSSSCROLL_ARE SMGSSSCROLL_AREA = Virtual Display <= Scroll re 18-50 =3007138% Oi: 18 +63 AX-11 Bliss-32 V4.0-74 Page 


1-005 SMGSSSCROLL_AREA = Scroll rectangular area -Sep- SMGRTL.SRCJSMGSCROLL.B32;1 
; ree 1 Clear source area vacated. 

> 445 1 SSMGSSHUFFLE ( .COLS_TO_MOVE - SOURCE, DEST); 

> 66 1 SSMGSBLANK FILL_DCB € .COLS_fO CLEAR, .START_OF_CLEAR); 
> 44 318 START OF_CCEAR = ; START -OF CLEAR + .ONE_LINE? 

: 668 51 SOURCE =". SOURCE + E“LIRE; ty § worth down 

; 449 0520 DEST = .DEST + ‘oe NED “LINE; i Line's worth down 

: ce 521 4&4 ; ! Incr loop 

; 451 5 ¢ END; ! Dest. at least Parstally within gftctenate 

r 128 5 END; ! end of left shuff 

i Be 

; ret: c 6 CINRANGE, OUTRANGE]: 

; 496 3 i RETURN SMG$_INVARG; ' should never get here 

: 458 539 TES; 

; 45 0530 

: 460 0531 RETURN (SS$_NORMAL); 

; 461 0532 END; ! End of routine SMGSS$SCROLL_AREA 


-TITLE SMGSS$SCROLL_AREA SMGSSSCROLL we - Virtual Dis 
; play -- Scroll r 

-IDENT \1-005\ 

-EXTRN SMG$_INVARG 


-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


OFFC 00000 -ENTRY SMGSS$SCROLL_AREA, Save R2,R3,R4,R5,R6,R7.- ;: 

RB8_R9,R10,RT1 ; 

SE 30 ce 0000 SUBL 2 #46, §P : 

50 04 AC 06 cI 000 ADDL3 #6, DCB, RO : 

iC AE 60 3¢ O000A MOVZWL (RO) (SP) ; 

59 1¢ AE OOD 0000¢ OVL 8(SP), ONE ; 

50 10 aC DO 0001 MOVL HEIGHT, LOCAL _HEIGHT : 

57 14 ac OD Bete MOVL WIDTH, LOCAL_QIDTH 3 

58 08 AC 10 AC c 00014 ADDL3 ce START _ROW, R11 

51 04 Ac 02 C1 000 2 ADDL3 42, 0 R1 ; 

58 61 10 00 ie 00 ? CMPZV ft mig. RD. R11 ; 
52 04 ac 08 g 00 : ADDL3 #2, DCB, R2 : 0278 

3 g Re tS 000 SUBLS stant how 

50 of Al oe 0 A ROVAB 1(R1)7 Ootar _HE IGHT : 

51 Oc AC 14 AC ci Hi; 1$ ADDL WIDTH ; START-COL, R1 

59 2} D1 46 CMPL  R1, ONE_LINE : 

09 1 4 BLEG 2$ ; 

51 59 c « § 48 SUBL3 START. COL ONE bine R1 ; 

7 1 Al ; 0 MOVAB 1(R1)7 COAL ; 

1 8 ac p 4 2% MOVL START_R ; 

A FF A041 i 8 vag =1(LOCAL et beent BOTTOM_LINE : 

” 3 AE 40 5 062 nove tROS 7 ish) : 

50 4 Ac 14 D6 Mine ADDL3 £30, ’pe CB, RO : 


F 16 
$n SSSCROLL_ARE SMGSSSCROLL_AREA = Virtual Display <= Scroll re 16-Sen-1984 01:14:29 AX-11 Bliss-32 V4.0- Pa 1 
5 SMGSSSCROLL_AREA = Scroll rectangular area 1323807138 93:16 63 SMGRTL.SRC SMESCROLL 69251 - B 
4 AE 60 00 68 MOVL (RO), 36(SP) ; 
Be 24 AE 7D oF MOVG 36(SP) ATTR _BuF : 
50 4 ac 18 C1 4 ADDL3 ge k + 0292 
0 AE 60 D0 79 MOVL {ha} By : 
8 AE 20 AE OD 4 MOVL 36 (SP), Rte BUF : 
50 4 ac 0000006C BF C ADDL3 #76. D : 0293. 
18 «AE 60 D0 000 MOVL : | 
o1F mit OFF oft F pode 38: WORD gine it ts 6 oe 
S305 iets ist 883 §09¢ 148-38 ; | 
235-38 : 
4$- 3 
4$- .’s - 3 
335-35" 
50 000000006 8F pO 00044 4$: MOVL #SMGS$_INVARG, RO + 0527 
58 08 ac 1¢ ¢ c3 BOOAC 5$: SUBL3 COUNT, START_ROW, DEST_LINE_NO + 0309 
50 FF AB SE 000B2 MOVAB = -1 (RBS, R + 0310. 
50 1¢ AE C4 00086 MULL2  28(SP), : 
51 Oc AC or C3 900BA SUBL3 #1, START COL, R1 : 
56 50 1 C1 000BF ADDL3 R1. RO, DEST ; 
58 08 AC 01 ¢3 000C3 SUBL3 #1, START ROW, R11 + 0311 
58 1c «= AE «(C4 00068 MULL2  28(SP), ; 
50 oc AC 01 ¢3 000CC SUBL3 #1, ST iat COL, RO ; 
16 AE 5B 50 ¢1 00001 ADDL3 RO, R11, SOURCE ; 
be 08 AC 01 ¢€3 00006 SUBL3 #1. START_ROW, CURR_LINE : 0313) 
48 11 00008 BRB 9$ ; 
08 Ac 58 D1 90000 6$: CMPL  DEST_LINE_NO, START_ROW : 0317, 
3c 19 O00E1 BLSS  8$ ; 
10 BE46 9F O00E3 PUSHAB aTEXT_BUFCR6] + 0323 
7E 18 AE 14 AE 1 000E7 ADDL3 TEXT BUF, SOURCE, -(SP) ; 
9E 9E 57 28 OO0ED MOVC3. LOCAC_WIOTH Step) e. sESP)¢ : 
OC BE46 SF OO0F1 PUSHAB att ck : 
7E 18 AE 10 Ag C1 000F5S ADDL R_BUF RCE, -(SP) ; 
9E 9E 57 28 000FB MOVC COCA A UrotiIee a(sP)+, ac(SP)+ ; 
08 AE D3 O00FF TSTL HAR_BUF : 
OE 1 0192 BEQL ; 
08 BE46 9F 001 PUSHAB aCHAR BUF CR6) ; 
7E 18 AE 0c Ag C1 00108 ADDL 3 HAR_BUF, SOURCE ; 
9E 9 5? 28 O10 MOV (0 OCAC WIDTH, Ot eb) a sECSP)¢ ; 
26 18 AE DO 00112 7$: MOVE LCV ; RO > 0324 
6840 opel 88 eh MOVB LE UaR LINE)CR1J, (DEST_LINE_NO)CROJ : 
38 D6 OO11F 8S: INCL DEST_CINE_ : 0327 
56 CO 00121 ADDL2 ONE_CINE, DEST > 0328 | 
146 AE 9 CO 00124 ADDL2 ONE-LINE, SOURCE > 0329 
B1 58 A F3 00128 9$: AOBLEQ BOTTOM sine CURR_LINE, 6% : 0313 
B FF OAA 9 1 MOV -1(R10), R11 : 0336. 
B 1¢ =AE «C4 001 MULL2  28(SP), R11 : 
50 oc AC 1 ¢3 001 SUBL , START_COL, RO : 
16 AE 58 0 ¢1 00139 ADDL * R11, SOURCE ; 
2c h b4 : CURL TER > 0338 
08 ac A 01 143 10$: CMPL BOTTOM_LINE, START_ROW > 0341 
B 19 0014 BLSS  12$ : 


16 
SMGSSSCROLL_ARE SMGSSSCROLL_AREA - Virtual Display -- Scroll re 18-Sep-1984 94:16:89 AX-11 Bliss-32 V4.0-74 
1-005 SMGSSSCROLL_AREA = Scroll rectangular area 14-Sep-1984 13:10:02 SMGRTL.SRCJSMGSCROLL.B52;1 
0 8 AE 00 00149 MOVL  40(SP), TEXT_BUF 
pA BESS ABE a0) TLE 
57 20 6E 05 Be 155 MOVCS #0, (SP), #32, LOCAL_WIDTH, @SOURCE- 
14 BES 15A crext Buf] 
1¢ = oAE 04 Ac 3 gi 1 ADDL #46, BCB, 2g(sP) 
57 1¢ BE bE C 0016 movcS #0, (SP), @28(SP), LOCAL_WIDTH, @SOURCE- 
14 BES 16 CATTR BUF) 
B 8 16C TSTL CHAR_BUF 
D 1 O16 BEQL 11$ 
58 04 Ac 0 ci 01 ADDL3 #48, cB, RB 
57 68 6E 00 2c O17 movCS #0, (SP), (RB), LOCAL_WIDTH, @SOURCE- 
14 BE4B 17A CCHAR_BUF 
50 18 AE D0 0017D 11$: mov. LCV, RO 
6A40 94 00181 CLRB_. = (BOTTOM_LINE) CROJ 
14 AE 2 Ce 0184 128: SUBL2 ONE_LINE, SOURCE 
A 07 001 DECL  BOTTOM_LINE 
B3 s - 1¢ o3h5 F3 018A 13$: AOBLEG COUNT. COUNTER, 10$ 
58 SA 1c AC ci oO 198 14$:  ADDL3 COUNT, BOTTOM_LINE, DEST_LINE_NO 
50 FF AB SE 00198 MOV -1(R85, RO 
50 10 AE OCG 0019 MULL2  28(SP), R 
51 Oc AC 1 €3 OO1A SUBL3 #1, START_COL, R1 
56 50 1 ci OO1A ADDL 1, RO 
5B FF AA 9 001A9 MOV -1(R105, 
58 1¢ «AE C% OOTAD MULL2  28(SP), R11 
50 oc AC 1 ¢3 90181 SUBL3 #1, START_COL, RO 
146 AE 5B 0 Ci 00186 ADDL3 RO. R11, SOURCE 
58 5a 00 001BB MOVL  BOTTOM_LINE, CURR_LINE 
4c 11 001BE BRB 18$ 
SA 3 D1 001CO 15$:  CMPL DEST_LINE_NO, BOTTOM_LINE 
C 14 001C BGTR 178 
10 BE46 OF OOIC PUSHAB a@TEXT_BUFCR6) 
7E 18 AE 14 AE C1 001C9 ADDL3 TEXT BUF, SOURCE, -(SP) 
9E 9E 5 38 001CF MOVC3 LOCAC_WIOTH, a(SP)+, a(SP)+ 
OC BE46 9F 00103 PUSHAB @ATTR-BUFLRO) 
7E 18 AE 10 =A cr 00107 ADDL3 ATTR BUF, SOURCE, -(SP) 
9E 9E 57 28 001DD MOVCS LOCAL WIDTH, a(SP)+, a(SP)+ 
08 AE D3 0161 TSTL HAR_BUF 
OE 13 O01E4 BEQL 
68 BE46 9F 001E6 PUSHAB @CHAR_BUFCR6) 
7E 18 AE 0c ag 4 O1EA ADDL CHAR_BUF, SOURCE, -(SP) 
9E 3 57 28 001F0 MOVCS LOCAC WIDTH, a(SP)+, a(SP)+ 
2 18 AE 00 irk 16$:  MOVL 4 
1 18 AE DO OO1F8 MOVL LCV, R 
6840 6B41 30 O1FC MOVE (CURR LINE) CR1], (DEST_LINE_NO)CROJ 
8 D7 00201 178:  DECL. DEST _CINE_NO 
56 9 C2 00 05 SUBL2 ONE_CINE, DEST 
16 AE 9 €2 00 SUBL2 ONE-LINE. SOURCE 
38 D OA DECL  CURR_LIN 
08 Ac 38 D1 18$ cHPL CURR-LINE, START_ROW 
58 08 Ac 01 ig 1 SUBL3. #1, START_ROW, R11 
58 1¢ AE ch 1 MULL2 28(SP), RT1 
50 Oc AC Q ¢ 1 SUBL3 #1, START_COL, RO 
16 AE 36 0 C1 é ADDL3 RO. R11, SOU 
08 AC 00 MOVL  START_ROW, DEST_LINE_NO 
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H 16 
SSSCROLL_ARE SMGSSSCROLL_AREA = Virtual Display <= Scroll re 16-Sep-1984 01:14:39 AX-11 Bliss-32 V4 .0-743 
SMGSSSCROLL_AREA - Scroll rectangular area 14-Sep-1984 13:10:02 SMGRTL.SRCJSMGSCROLL.B852;1 
a ih a 
SA 3 D1 19$: CMPL DEST_LINE_NO, BOTTOM_LINE 
8 AE D MOVL  40(SP), TEXT_BUF 
B 6 AE D MOVL ; (SP), ATTR~BUF 
1c AE Ss & p MOVL (SP); CHAR~BUF 
57 20 6E "i rm) ¢ 49 MOVCS 0, (SB) #32, LOCAL_WIDTH, @SOURCE- 
04 AE 04 ac H g1 0 48 ADDL3 #46, BCB, 4(SP) 
57 04 BE 6E ia ont C dE MOVC #0, (SB), a4(SP), LOCAL_WIDTH, @SOURCE- 
re AE os G08 sn. RAR BUF 
04 AE 04 ae = 5 at 00 35 ADDLS fee "C8. RSP) 
57 04 BE 6E a ms) gt 00 66 MOVCS #0, (SP), @4(SP), LOCAL_WIDTH, @SOURCECR11] 
50 18 AF DO 00 i 20$:  MOVL LCV, RO 
6840 94 00273 CLRB. = (DEST_LINE_NO)CROJ 
vito Shine©6 6a 6Siciee 
AC 2c AE 1c «OAC pg 00 43 22$: | AOBLEQ COUNT, COONTER, 19S 
oc AP BD AIRE oss, BEB, Rar con, 
58 FF A740 96 00288 = §= ~— MOV =1(LOCAL_WIDTH)CROJ, RIGHT_COL_OF_RECT 
51 Oc AC ac. a as 00 8D ADDL3 COUNT, START_COL, DEST_COL-NO 
58 08 Ac 01 ¢3 00293 SUBL3 #1, Sf , Ril 
5B 1¢ «AE C4 00298 MULL2  28(SP), RTI 
Em § Ec 
56 FF A14B SE 0026 MOVAB <-1(DEST COL_NO)CR11), DEST 
57 1C AC D1 00 AB CMPL COUNT, COCAC_WIDTH 
5B 08 ac 01 3 00 8} SUBL3 a START_ROW, CURR_LINE 
50 8 AE DO $0 B8 24$:  MOVL 40(SP), TEXT_BUF 
2 OA 6 AE BO 00560 Move. 33CSP)° CHART BOE 
57 20 6E * aid Be a3¢5 MOVES #0, (SB). #32. LOCAL_WIDTH, @SOURCE- 
18 AE 04 AC 2€ sl 0 cB ADDL #46, BCB, 24(SP) 
57 18 BE 6E 09 C 0020 MOVCS #0, (SP); @24(SP), LOCAL_WIDTH, @SOURCE- 
14 BES 0 09 CATTR BUF) 
2c AF D5 dC TSTL CHAR_BUF 
13 13 OO2DF BEQL 5$ 
18 AE 04 Hi “ 5 p0 6 £3 ADDLS pea DCB. BF sp) 
57 18 BE 6E a acts se EB MOVCS #0, (SP), @24(SP), LOCAL_WIDTH, @SOURCECR8) 
146 AE 3 c9 F4 25$:  ADDL2 ONE_LINE, SOURCE 
BC 58 AF F8 g$: AOBLEQ BOTTOM_Line. CURR_LINE, 24$ 
01BD 31 ON2FC 27$: BRW 43$ 
bg Biers SF RL? ESL ao, 
2c AE 51 Oc ac c¢ SUBL3. START_COL, DEST_COL_NO, COLS_TO_CLEAR 
58 08 AC o1 ¢ A SUBL3 #1, START.ROW, CURRTLINE 
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16 
A - Virtual Display == Scroll re 16-Sep-19 4 14:29 AX-11 Bliss-32 v4.0 Page 15. 
tit ia a smcsescrort” “AREA - Scrout rectangular area 1 =3007 1382 % 18:62 SMGRTL.SRC SMGSCROLL. aS2; 31 (7) | 
R 32$ ; | 
10 Bese iY of 29$ BT eHAB aTEXT_BUFCR6] + 0450 
7E 18 AE 14 AE C1 00315 ADDLS TEXT_BUF, SOURCE ; 
9E 9E os i 1B MOVC3 COLS”TO hoy E SF eppss etary : 
o¢ BE46 SF OO31F PUSHAB aATTR BOF R64 a : 
3 " of ; 5 $} 0 3 move COLS-TO hov VE, oF eps PaUsP)s : 
08 AE b 0 D TST GHAR BUF : 
08 Bese iF 0 PUSHAB @CHAR_BUFCR6) : 
7E 18 AE OC AE C1 ADDL3 CHAR_BUF, SOURC SP) : 
9E 9 af 5 p MOVC3 COLS-TO_MOVE, SF pps a(sP)+ : | 
5 8 AE 8 ig 30$:  MOVL 40(SP),~TEXT BUF ; 0451 | 
eA i AE BO 003849 move. #Stap3° CUA ceo] 
2c AE 20 + bE ‘ 06 Be 034 MOVCS #0, (SB), #52. COLS_TO_CLEAR, @SOURCE- ; 
04 AE 146 AE i sat C1 0357 ADDL ATIR. BUF SOURCE, 4(SP) : 
2c AE 00 gf t bE 6 st 00368 MovCS #0, (SP). @0(SP), COLS_TO_CLEAR, a4(SP) : 
A ; 
eG ah | gt gue 7 
18 AE 146 AE 1C i Ci 00371 ADDL CHAR_BU BUF . + SOURCE, 24(SP) : 
2c AE ry BE ” bE 30 st 0037e moves #0, (Spo. €4(SP), COLS_TO_CLEAR, a24(SP) 
18 BE 0038 - 
ra: ae 25 §6 O0387 st: ots oe “LINE peste : Beas 
FF7D 5B 01 3A Fl 0038e 32$: ACBL BOTTOM OM LENE. #1, CURR_LINE, 29% : Done 
: > 0464 
eM RRR sm Bes foe pane. est co Baas 
35 FF A741 i eta MOV 51 CLOEAL W1DTH)CR12, RIGHT_COL_OF _RECT pe 
2 - of 1¢ er 53 BOsAA enet COUNT, LOTAL_WIDTH > 04 
5B 51 1¢ 3 2 iets MULL 28(SP), R1 : 0475 
52 Oc AC 01 3 iettg SUBL a. START COL R2 ; 
te 32 i 3 p3BA SUBL3 #1, START_ROW, CURR_LINE + 0477 
” 7 40 11 003¢4 BRB 36§ P seal 
50 i AE 00 C6 34$: MOVE Heap TEXT BUF : 0 
4 AE D , ; 
HAR_BUF : 
57 20 = = , ; oe 3 8 Moves nea LOCAL_WIDTH, @SOURCE- : 
14 BE4O 0308 : 
) ; 
is oF - be § gt $ a spoke +6 Ait oe eed), LOCAL_WIDTH, @SOURCE- 
sid = 14 BE4 O3E7 CATTR Buf)” : 
CUM TEES ge ee : 
58 2c h > EF MOVL CHAR_BUF Pa ; 
57 8 BE a bE 3 gt f3 stay #0, (SP), @24(SP), LOCAL_WIDTH, @SOURCECR8) ; 
FF | 
14 AE BES CO 00402 35$ ADDL2 ONE_LINE, SOURCE > 0482 


3; Routine Size: 


ARE SMGSSSCROLL_AREA = Virtual Display == Scroll re 
SMGSS$SCROLL_AREA = Scroll rectangular area 
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SMGRTL.SRCJSMGSCROLL .B52;1 
? by LINE, CURR_LINE, 34$ 
ot ROVE <WIDTH, COLS_TO_MOVE 


Re 
COL s- TO MOVE, @SOURCECR8], (DEST)CR7) 
CHAR_BUF 


CHAR_BUF, R7 


CHAR UF. RB 
COLS~TO -fove. @SOURCECR8], (DEST)CR7) 
40(SP) , “TEXT. BUF 

(SP); ATR =BUE 

(SP); CHA 
#0, (SP) #2 “EOL TO_CLEAR, - 
@START_OF _CLEARCTEXT_80F J 
46, DCB, ~4(SP) 

#0, (SP), a4(SP), COLS TO CLEAR, 
astant OF CLEARCATTR_BOFJ~ 


DCB, R7 
#0, (SP). (R7) cOLS_ TO_CLEAR, - 
@START OF _CLEARCCH BUF 
E, START OF CLEAR 


DEST 
BOTTOM. LINE, CURR_LINE, 39S 
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SMGSSSCROLL_ARE SMGSSSCROLL_AREA = Virtual Display <= Scroll re 16-Sep-1984 01:14:29 AX-11 Bliss-32 V Pa 

1-005 SMGSS$SCROLL_AREA = Scroll rectangular area 16- sen-1984 93: 6:63 SMGRTL.SRC REIS SmESCR ne 682; 31 = 

> 464 END ! End of module SMGS$SCROLL_AREA 

> 465 0333 | 1 ») 

; 466 5 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: _SMGSCODE 1216 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

ee 4, an le A a oe Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: -$255$DUA28: SYSL IBISTAM ET 327] 9776 7 0 581 00:01.0 

3 ~$255$DUA28:CSMGRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 

; “$588 $DUAD8: CSMGRTL.OBJJSMGLIB.L32;1 469 11 2 38 00:00.5 

3 COMMAND QUALIFIERS 

: FLISS/CHE CROCE LELD., INITIAL ,OPTIAIZE) /UOTRACEAL [54 1582 SRESCROLL /0B.J=08.)9: SMESEROLL MSRC$: SMGSCROLL/UPDATE=(ENH$: SMGSCROLL 
Size: 1216 egge + 0 data bytes 
Run Time: 


Elapsed Time: 01:06.0 
Lines/CPU Min: 1348 
Lexemes/CPU-Min: 14768 
Memory Used: 348 pages 
Compivation Complete 


Asi A AH-BT13A-SE | ENT CORPORATION 
v VAX/VMS V4.0 - AND PROPRIETARY 


